home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
progset.arc
/
PARSE.PRG
< prev
next >
Wrap
Text File
|
1991-04-29
|
335b
|
17 lines
* PARSE.PRG
*--- Example comma-separated list
LineRead = '100,200,"Three Hundred",400'
*--- Parse list, placing each element in an array
myArray = GetParmList(LineRead)
*--- Print array values
for x=1 to len(myArray)
? myArray[x]
next x
return
*---*
Function GetParmList(plist)
return &('{'+plist+'}')